unit about;

interface

uses
  SysUtils, Types, Classes, QGraphics, QControls, QForms, QDialogs,
  QExtCtrls, QButtons, QStdCtrls;

type
  TAboutbox = class(TForm)
    AboutPanel: TPanel;
    ProductName: TLabel;
    OKButton: TButton;
    Memo1: TMemo;
    procedure FormShow(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Aboutbox: TAboutbox;

implementation

{$R *.xfm}

uses main, Konstansok;

procedure TAboutbox.FormShow(Sender: TObject);
begin
  ProductName.Caption:=Y2VERSION;
end;

procedure TAboutbox.FormActivate(Sender: TObject);
begin
  setUserLog(Self.Name);
end;

end.
